package SectionName;

use Moose;
use Data::Dumper;
use Const;
use Moose::Util::TypeConstraints;

use Log;

has 'name' => (
    is => 'rw' ,
    isa => 'Str',
    required => 1,
    );

has 'type' => (
    is => 'rw',
    isa => enum([qw sectionNominal sectionReserved]),
    init_arg => undef,
    );


sub BUILD {
    my $self = shift;    
    if($self->name =~ /^_/o) {
	$self->type('sectionReserved');
    }else{
	$self->type('sectionNominal');
    }
}

no Moose;
__PACKAGE__->meta->make_immutable;
